home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 96
/
Amiga News 96.iso
/
dpat
/
dpat129
/
amighpv2a
/
examples
/
ucodybis.s
< prev
next >
Wrap
Text File
|
1977-12-31
|
2KB
|
159 lines
include entries.i
con(5) DOCODE
Debut con(5) Fin-Debut
car equ $800F5
c equ $800FA
taille equ $800FF
adr.deb equ $80104
adr.max equ $80109
adr.tmp equ $8010E
adr equ $80113
GOSBVL $0679B
GOSUBL TEST
LCHEX $00005
D0=(5) $800FF
A=DAT0 A
?C=A A
GOYES LAB0
GOTO LAB1
LAB0
GOSBVL $067D2
A=DAT0 A
D0=D0+ 5
PC=(A)
LAB1
D0=(5) $8010E
C=DAT0 A
D0=(5) $800FF
A=DAT0 A
C=C+A A
LAHEX $00005
C=C+A A
D0=(5) $80109
DAT0=C A
LCHEX $0000A
D0=(5) $8010E
A=DAT0 A
C=C+A A
DAT0=C A
D0=(5) $80113
DAT0=C A
D0=(5) $8010E
C=DAT0 A
D0=(5) $80104
DAT0=C A
AD0EX
GOSBVL $067D2
D1=D1+ 5
D=D+1 A
GOSBVL $0679B
AD0EX
GOSUBL TEST
D0=(5) $800FF
C=DAT0 A
CSRB A
DAT0=C A
LCHEX $0000A
D0=(5) $8010E
A=DAT0 A
C=C+A A
DAT0=C A
ST=0 15
LAB2
LAB3
D0=(5) $80109
C=DAT0 A
D0=(5) $80113
A=DAT0 A
?C>A A
GOYES LAB4
GOTO LAB5
LAB4
LCHEX $00002
D0=(5) $800FF
A=DAT0 A
?C=A A
GOYES LAB6
GOTO LAB7
LAB6
ST=1 15
GOSBVL $067D2
A=DAT0 A
D0=D0+ 5
PC=(A)
LAB7
D0=(5) $80113
C=DAT0 A
D1=C
D0=(5) $800FA
C=0 A
C=DAT1 B
D1=D1+ 2
DAT0=C A
D0=(5) $80113
AD1EX
D1=A
DAT0=A A
D0=(5) $8010E
C=DAT0 A
D1=C
D0=(5) $800F5
A=DAT1 A
DAT0=A A
D0=(5) $800FA
C=DAT0 A
D0=(5) $800F5
A=DAT0 A
C=A-C A
DAT0=C A
DAT1=C B
D1=D1+ 2
D0=(5) $8010E
AD1EX
D1=A
DAT0=A A
D0=(5) $800FF
C=DAT0 A
C=C-1 A
DAT0=C A
GOTO LAB3
LAB5
D0=(5) $80104
C=DAT0 A
D0=(5) $80113
DAT0=C A
GOTO LAB2
TEST
ischaine equ $80118
D0=(5) $8010E
A=DAT1 A
DAT0=A A
C=A A
D1=C
D0=(5) $80118
A=DAT1 A
DAT0=A A
LCHEX $02A2C
A=DAT0 A
?C#A A
GOYES LAB8
GOTO LAB9
LAB8
GOSBVL $067D2
LAHEX $00202
GOSBVL $05023
LAB9
D1=D1+ 5
D0=(5) $800FF
A=DAT1 A
DAT0=A A
RTN
Fin